home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 26 / AACD 26.iso / AACD / Programming / AllPlaton / Unsorted / NewWrapFontEngine.AMOS / NewWrapFontEngine.amosSourceCode
Encoding:
AMOS Source Code  |  1998-08-19  |  472 b   |  22 lines
  1. WX=640
  2. WY=256
  3. Screen Open 0,WX,WY,4,$8000
  4. Curs Off : Flash Off : Paper 0 : Pen 1 : Cls 
  5. Palette 0,$FFF,$444,$8
  6.  Extension_8_05B0 "Tribeca",100
  7. Ink 1,0
  8. BUFTEX["WELCOME"]
  9. Degree 
  10. For Y=0 To 120
  11.   For X=0 To WX-1
  12.     NX=X-20+Sin(X*3.0)*10.0+Cos(-Y*1.3)*14.0+Cos(X-Y)*3.0
  13.     NY=Y-10+Cos(Y*0.7+200)*6.0-Sin(X*2+444)*8.0+Sin((X+Y)*-3)*7.0
  14.     P= Extension_8_039E(NX,NY)
  15.      Extension_8_0388 X,Y+128,P
  16.   Next 
  17. Next 
  18.  
  19. Procedure BUFTEX[T$]
  20.   Cls -1
  21.   Text 0,Text Base,T$
  22. End Proc